program SimMetro2;

uses
  Forms, Windows, SysUtils, Constants,
  Main in 'Main.pas' {SimMetro};

{$R *.res}

begin
  Application.Initialize;

  If not FileExists(ExtractFilePath(Application.ExeName) + 'mplayer.exe') then
  begin
    MessageBox(0, ERROR_100_TEXT, ERROR_100_CAPTION,
                  MB_OK or MB_ICONERROR);
    Halt(0);
  end;

  Application.CreateForm(TSimMetro, SimMetro);
  Application.Run;
end.
